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0 eK F ISTORY ** 002500 2574 201 A(ENTPT POINT TO MAP ENTRY POINT TABLE 
, Sees ere ee ee ee ee ee eee 202 cea SURE cH AMER EAE RH ee OREN AERROUAEC OH OTE E Cote Ree ALY enees eee es octane 
5 * . x QO 3 eRe ae ae Be a fe oie ae ae a ofc oe fe he ae oie af ie aft fc ate ac afc ake ae fe af af fe fe ae afc fe ke ake ae afc ae ke ae ake aft abe af ake ake ae aft abe ale ake ate ae ak ake fe ate ae hk afe ae ake ae fe fe ake ake ale abe ake 
6 * we ae a PREREQUISITES a 3k * 204 ** XH 
J x * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) ik 
Q x NOWE x 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER ek 
9 x * 207 ** PARAMETERS TO PASS TO THE TU'S AND T6 PASS TO THE OPERATOR a 
VQ eae eae ae ae ae ae oe ie ae ke oo ae a ica ok oe Re a ke ak oie fe ac ia a ae ie ie ac fe ae kc akc ai ok ake ae akc ak ac ak ake ie oe ae ake a ak oe a ait fe ake af ale a af ake abe fe 208 ** THE INDICATED NHESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS aus 
11 * * 209 ** PURPOSE THEY ARE: we ae 
12 * re a MODIFICATIONS 4K * 210 % 
13 * ok 211 ** STEP AND RULE ADDRESS TABLE * 
14 * CHANGE MADE TO CORRECT 4952 PROBLEM * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND ek 
15 * x 213 ** THE ASSOCIATED STEP DECIMAL STEP NUHBER OF THAT RULE. eK 
1G FR ee 2K ae ofc aie ae aie afc 2 oe fe a ake ae af af af af kc kc af ae ae akc aie ok a 2k ak akc ake ake af ake ak ake ake ae ate ae ae afc ak of at ae abe ae aie ie ke ake ake ale af ae ake a ak ake ofe fe fe afe ote ae oe 214 ** ENTRIES ARE AS FOLLOWES ie 
17 * * 215 ** A AN ADDRESS OF THE ROLE DC START AREA * 
18 * 1k 3k ae REA'S INCORPORATED ee * 216 ** B THE STEP NOMBER IN DECIMAL He He 
19 * * 217 ** C AN EQUATE FOR THE STEP NUMBER ek 
20 * NONE *x 218 ** x 
31 * * 219 ** RULE INFORMATION TABLE ** 
2D eI ae oe a ai a ake a ke ae fe ofc he ke he a 2 ake a ae ae oc i 2 akc ake afe ake ak ak fe fe ake ate af af ake ake ake af ake aie af ak ake ake ake keke ake ak ak ake akc ake ake fe ak akc akc ake ake fe ac ake ake ae ak 220 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * 
23 * 2k 221 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN we ak 
24 x a He 3 SPECIAL INSTRUCTIONS ek ok 222 %** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * x 
25 * * 223 ** INDICATED WITH A X*'O0O0O0* FOR THE RULE EQUATE. a ake 
26 * NONE * 224 ** we ok 
27 * 2 225 ** SQUES we ok 
28 eo Ok ok koto lok dak gkoiokok kokokok koko koioiokok doko kok sok kodkolok ickoiok kok ick kaka ak kak sok koko ak ace ak: ak ak a: 226 *% A) RULE EQUATE X'0100! mK xk 
29 x ok 227 ** B) ADDRESS OF THE YES LEG RULE a ake 
30 * ak 2 a E. C. HISTORY we * 228 ** ae 3k 
31 * * 229 ** $FIXT ae 3k 
32 * DATE 010CT76 DATE O2DFC76 DATE 15MAR77 DATE 10JU0N77 * 230 ** a} RULE EQUATE X*'0101' me 
Fi : E.C. 578468 E.C. 578469 E.C. 578714 E.C. 578625 < 554 bi B) ADDRESS OF MESSAGE TO PRINT bes 
35 * DATE 20JAN78 DATE O6NOV78 DATE 15JAN79 DATE * 233 ** $STOP ae ak 
36 * +C. 155331 E.Ce ooo | B.C. 3/5 147 BaCx * 234 ** 3} RULE EQUATE X*'0102' baie 
37 * * 235 ** B) ADDRESS OF MESSAGE Hk 
QB ee ae ie ae a ae ae ae ak eo a 2 ake ak a ae a fe he ake ate afc af ake akc fc af ake oc 2 afc af a af fe fe ake afc af ae ae ae fe af ake a akc af ak ale afc ake ake af ake ak ake ake afc ake ake ake ake ake ae of ake 236 ** we a 
002500 4Q 15002 START X*2500'8 START ADDRESS OF ALL 'I* TYPE PROG 237 ** $GOTO ke 3k 
000100 41 @QUES EQU X*O100! EQUATED VALUE FOR MDI STATEMENT 238 ** A) RULE EQUATE xX'0200! ae oe 
000101 42 @FIXT EQU x*O1018 EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDRESS OF MESSAGE aK ok 
000102 43 @STOP EQU X¥'0102' FQUATED VALUE FOR MDI STATEMENT 240 ** C) NAME OF HAP TO GO TO * 
000200 44 @GOTO EQU X¥*0200° EQUATED VALUE FOR MDI STATEMENT 241 *% D) ENTRY POINT WITHIN GO TO MAP TO USE ae ak 
000201 45 @CALL EQU xX¥*Q0201! EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE me 
000300 46 @INPT EQU X'O300! EQUATED VALUE FOR MDI STATEMENT 24u ** ek 
000400 47 @QUXX EQU X*O400! EQUATED VALUE FOR MDI STATEMENT 245 ** $CALL He 
000500 48 aTUXX EQU X*0500! EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE X'0201' ok 
000600 49 @NVLD EQU X*'0600! EQUATED VALUE FOR MDI STATEMENT 247 ** B) ADDRESS OF HESSAGE a ok 
000000 50 EQ EQU x'Q000! EQUATE FOR EQUAL 248 **% C) NAME OF MAP TO CALL ek 
000004 51 NE EQU X*'OOO4' EQUATE FOR NOT EQUAL 249 %** D) ENTRY POINT WITHIN CALLED MAP TO USE we 2k 
000008 52 HI EQU x'ooose FOUATE FOR HIGH 250 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * & 
00000C 53 NH EQU X*000C! EQUATE FOR NOT HIGH Zo) ** a ak 
000010 54 LO EQU X*0010! EQUATE FOR LOW 252 ** SINPT | He 2k 
000014 55 NL EQU X*OO14! EQUATE FOR NOT LOW 253 ** A) RULE EQUATE xX'0300'! Ok 
000010 56 LT EQU X¥*0010° EQUATE FOR LESS THAN 254 ** B) INPUT TYPE EBCDIC OR HEX) * & 
Q0000C 57 LE EQU xX*Q00C! EQUATE FOR LESS THAN OR EQUAL TO 255 ** C) ADDRESS OF YES LEG RULE ae ak 
000008 58 GT EQU x*0008' EQUATE FOR GREATER THAN 256 ** D) DESTINATION LOCATION OF INPUT DATA aK a 
000014 59 GE EQU Xx'OQ14! EQUATE FOR GREATER THAN OR EQUAL TO 257 ** E) LENGTH OF INPOT DATA me 
000200 60 ON EQU xX'*0200° EQUATE FOR ON 258 ** F) LOWER LIMIT OF GOOD DATA te ok 
000202 61 OF EQU X'0202' EQUATE FOR OFF 259 ** G) HIGHER LIMIT OF GOOD DATA a ie 
000204 62 MX EQU X*'O204! EQUATE FOR HIXED 260 ** ee 
000000 63 EBC Eu X'0000! FOUATE FOR EBCDIC DATA TRANSFER 261 ** SQUXX 
000001 64 HEX EQU X*0001' FOUATE FOR HEX DATA TRANSFER 262 ** A) RULE EQUATE X'0400! me 
000001 65 XTRNL EQU X'O001! FQUATE FOR EXTERNAL REFERENCE 263 ** B) ADDRESS OF YES LEG RULE ak ak 
000000 66 INTRNL EQU X*Q0008 EQUATE FOR INTERNAL REFERENCE 264 ** C) TU BRANCH TO ADDRESS eecoenay * 
000000 67 M EQU X*'QOQO0! EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS (SECONDARY) ak ke 
000001 68 DA EQU X*OQ001!8 FQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER IN BYTES ek 
000002 69 EQU x'00028 EQUATE FOR UNIT ADDRESS 267 ** F) PARAMETER TO PASS TO TU % 
000000 70 DUMNY EQU xX'Q000! DUMMY EQUATE 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER wk 
001800 72 PID EQU *-X'*OD0O0! ADDRESS OF MDI HEADER 269 ** we 
000232 73 PTYPE EQU *-X"'22CE! ADDRESS OF PROCESSOR TYPE FIELD 270 ** $TUXX eK 
00180C 74 STEPNUM EQU PID+X*'O00C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE x'*0500°! % 
00180E 75 OPWD1 EQU PID¢XtQOOE! ADDRESS OF OPTION WORD ONE 272 ** B) ADDRESS OF YES LEG RULE ek 
001810 76 OPWD2 EQU PID+X'0010° ADDRESS OF OPTION WORD TWO 273 ** C) TU BRANCH TO ADDRESS me 
001818 77 TUSTATUS EQU PID+xX'0018¢ ADDRESS OF TU STATUS WORD 274 ** D) TYPE OF COMPARE TO MAKE ON RESULTS mek 
OO181A 78 TUWORK EQU PIDtX'OQ1A! ADDRESS OF TU WORK AREA 215. ** E) LENGTH OF COMPARED RESULTS * x 
00189A 79 TUPARM1 EQU PID+X*QO9A! ADDRESS OF PARM 1 POINTER 276 ** F) MASK FIELD FOR COMPARE ok 
00189C 80 TUPARM2 EQU PID*+x*OQ09C! ADDRESS OF PARH 2 POINTER 277 ** G) LENGTH OF PARAMETER IN BYTES we 3k 
00189E 81 TUPARM3 EQU PID+X'QO9E! ADDRESS OF PARM 3 POINTER 278 ** H) PARAMETER TO PASS TO THE TU ok 
0018A0 82 TUPARH4Y EQU PID¢X*OQOOAO? ADDRESS OF PARM & POINTER 279 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER me 
0018A2 83 TUPARM5 EQU PID+X*"QOA2! ADDRESS OF PARM 5 POINTER 280 ** me 
0018 A4 84 TUPARN6 EQU PID+X*QQOA4? ADDRESS OF PARM 6 POINTER 281 ** SN VLD * 
0018A6 85 TUPARM7 FEQO PIDt+X*OOA6* ADDRESS OF PARM 7 POINTER 282 *%* A) RULE EQUATE x'0600!8 ke 2k 
0018A8 86 TUPARM8 EQU PID+xX'QQAS8? ADDRESS OF PARM 8 POINTER 284 ** ek 
OO18AA 87 TUPARM9 EQU PID+X*QOAA' ADDRESS OF PARM 9 POINTER 285 ** ENTRY POINT TABLE mk 
0018AC 88 TUPARM10 EQU PID4+X*QOAC* ADDRESS OF PARM 10 POINTER 286 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT x 
OO18AE 89 TUPARM11 EQU PID*¢X*'OOAES ADDRESS OF PARM 11 POINTER 287 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ek 
0018B0 90 TOPARM12 EQU PID+xX*QOBO'! ADDRESS OF PARM 12 POINTER 288 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * 
0018B2 91 TUPARM13 EQU PID+X*QOB2' ADDRESS OF PARM 13 POINTER 289 ** ek 
0018BY4 92 TOPARMITU EQU PID+X*QOB4* ADDRESS OF PARM 14 POINTER 290 ** 3} NAME OF ENTRY POINT ek 
0018B6 93 TUPARM15 EQU PID+X*OOB6! ADDRESS OF PARM 15 POINTER 291 ** B) ADDRESS OF ENTRY POINT ROLE TABLE mk 
0018B8 94 TUPARM16 EQU PID+X*QOB8! ADDRESS OF PARM 16 POINTER 292 *% a 3k 
OO18BA 95 TUMSGWTR EQU PID*X*'QOBA® ADDRESS OF => TO COMMON MSG WRITER 293 ** THE ENTRY POINT TABLE END IS INDICATED BY A x'0000! *x 
O0018BE 96 TUOA EQU PID+X'OQOBF? ADDRESS OF UNIT ADDRESS IN EBC 294 ** a 
0018C0 97 TUDA EQU PID+xX'QOCO! ADDRESS OF DEVICE ADDRESS IN EBC 295 ** MESSAGE TABLE ek 
0018C2 98 TUBUFF EOU PID+xX'O00C2* ADDRESS OF LAST USED WORD IN MAP 296 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR a 
0018C4 99 TULAST EQU PID+X* 00C4! ADDRESS OF LAST ADDRESSABLE WORD 297 ** VIA THE HDI SUPERVISOR. THE TABLE IS AS FOLLOWES: 
0018C6 100 TURESULN EQU PID+X*'O00C6! ADDRESS OF LENGTH OF TU RESULTS 298 ** 1 ak 
0018C8 101 TOURESOL EQU PID#+x*QOC8! ADDRESS OF TU RESULTS FIELD 299 ** A) EQUATE FOR START OF MESSAGE BLOCK a ik 
0018FC 102 MAPNAME EQU PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 300 ** B) NUHBER OF LINES OF MESSAGE wk te 
001948 103 TOINPT EQU PID+X'O1488 ADDRESS OF $INPT DATA 301 ** C) LENGTH OF FOLLOWING LINE mk 
00196E 104 PARMARA EQO PID*+X'Q16F! ADDRESS OF S$INPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE * ak 
0019B8 105 @DCADD1 EQU PID+X"'O1B8! MDI POINTER 303 ** E) LENGTH OF FOLLOWING LINE ok 
QOO19BA 106 @DCADD2 EQU PID4+X'O1BA* MDI POINTER 304 ** F) SECOND LINE OF MESSAGE we ie 
0019C4 107 SUPSTAT EQU PID+xX'O1C4! ADDRESS OF MDI STATUS 305 ** G) ETC. Weak 
0019D9 108 DEVADD EQU PTD+X*'O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 306 ** ek 
0019DA 109 DEVADD1 EOU PID+X"O1DA® ADDRESS OF DEVICE ADDRESS TABLE 1 307 fe eek kak hk dk kak i kok kok doko goioiok ioioioioioictolaioiaiokiciagatcrr is aria a kc ake ator ake koa ae age ake ide at ads de ake aie ake 
0019 Eu 110 DEVADD2 EOU PID+X'O1F4' ADDRESS OF DEVICE ADDRESS TABLE 2 308 elo oi I iol OR CIO IO OR I IGIOIOIIGCIOR IOI IG IOI OI OI RO IG OR aga iGi ge ak ioe Oio ck gi a IC ea 
0019EE 111 DEVADD3 EQU PID+X'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 
eee 112 DEVADD4Y EQU PID+xX"'O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 
001A02 113 DEVADD5 EQU PID#¢X*Q202! ADDRESS OF DEVICE ADDRESS TABLE 5 
0017A0C 114 DEVADD6 £EQU PID+x*O20C* ADDRESS IF DEVICE ADDRESS TABLE 6 
001A 16 Lae DEVADD7 EO ELOSELUele ADDRESS OF DEVICE ADDRESS TABLE 7 
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NORIO HOR ROR IO ROHO ICR ae ete ate 
SOOO IGG IO IGG III IOI IOI IGIOI IK IK ici ket pipet ania ema 
ROG IISO OIG RO IIIS GIO IOI GIORGI IOI IGS I ICICI IK Kk ak ae SEG OE Sono on Sonn aS OE SOE SOO ODOC OOo 28S 
Me eK ak ak ak we ke ke ok 
313 SEECAESSERSNGOUL EDAEGHSNSSIESEESENNGEOSESEEONRESEECONE SEE EERO STEER EX _ 002578 ae ne F00085 De Aone) DEVICE ! 
Sli ee ESS TABLE E 429 = DISKETTE OR PUT THE TIMER 
345 * pies es ee eee 993882 D956 0c 3D6DSC6CIC aad We R(QQHC) en en aay Bee, es ee es 
335 ep D EOS men mene pele teeta oem pS 002582 CICUCUDICSEZE2U0E 432 DC % (9046) 
BRk Beat 315 De KL2“0001" © 002862 CSEIDICSC3E3CSCu4 43H DC CL0010" EXPECTED. 
002804 400% 320 zono0001 Bou | *? OROy. gg358C © u3g Be 413 (0901) 
000001 354 Pes ¢ AL2 (N00002) 0025EC 0001 4 36 He x (0002 
Op4208 Bade 333 DE «RES O002" 0025EE 0002 437 eee ocr) ee 
900002 354 PON00002 FOU 412 (N00003) OO25F2 G39 FOO100 EGU Fa, 
002504 2546 333 ifs XL2°0003' 0025 F2 eho ha DC (0020) R MAP.¢ 
000603 326 BOQN00003 EQU AL2 (NCOOO4) pesca. cypesOEapeboRIGeG.. aude saeae eso CL0020"GO 10 THE POWE : 
QO250E 254A 333 DC —«- KL2 "0004" 00260A reve D AL2 (0001) 
806008 ie 335 EQNOO0004 EQU 0004 00260A 0001 aug HS 2 (0040) 
02012 | 2545 331 De KE2*0005" 003608 E2CSC 1E340C3C 1DIC HHe o0103  BGy  GEOOTONSEAT CARD. 
002514 0005 3 5 FOU 0005 002618 G47 F De AL2 (0001) 
900005 255A 333 eee Be AL2 (N00006) 002618 0001 AnG DC 0 (0020) 4 
002516 2552 333 DC —- KL2*0006¢ 00361¢ DSCSDIDICIC3CSUOE 480 DE  CLOOZ0"REPLACE TIMER CARD. 
050006 33¢ =e De AL2 (N00007) O88 45 DIC nes F00106 anv R12 (0001) 
O0251A 2555 XL2*0007' 002630 0001 . (0018 
899507 oo 338 Fowo0007 BRo 0907 O03e 82 OOM pecunocspscaa 88h Be MARS \Skcoop zup rate ‘MArL* - 
909826 5088 3u6 Bc 41249008" tee PEGEEES SERED ES Ce LEKEAOED EERE ENA ENED ERE OE REREE ERATED EC OROE SEEEERCE REARS : 
* 
802899 2566 342 eee De. AL2 (N00009) e232 : EQUATED NAMES FOR SUPPORTED SVC'S . 
t 
BebaeG 0009 rt EQNO0009 BQ0 aa 0009 ace SECC CECE CCE O OEE EEO ROO SEER CCE OEE ERE EEE IEE HF 
AL2 (N00010 
posese §6aRon 342 DE KES“OO108 000000 nes OUn ead. 28 OUTIN SVC 
00000 ag oe AL2 (00011) 000002 463 IDLE. EQU 2 IDLE SVC - INDEPENDENT OF CPU TYPE 
338%¢ 83% 349 pe, Le tet 900083 es CoNGe F004 CHANGE, LEVEL SVC ocak CHECK SVC 
800008 ct} en EET ETL ekki ik 000005 fed eee cen 2 EXIT SVC 
00252E 0000 3?1 Cees cus Veda WOR Gabe a bads cece eeuaueanenesse7ees 0000¢ 467 EXIT EOU TERMINATE SVC 
323 SEH C HGS OOO USO GE JOOS On OD OC CODE UO On ODE Ope oa EF raobes 468 TERM BOU i RESET DEVICE SVC 
eae RULE INFORMATION TABLE ee 900009 470 RID | EOU 9. Se ean C4CL eG een eae 
2k ek | Vv 
336 pies LLLLELLLELLL Lachine dee OOOO0A iad arcs Feu 11 See RT ous heer Sanita Due 
357 sao Go a a oi coi oii took icioiok a ak bette peel ead tee babe paint ids 00000B 495 cee teu 4 PREPARE ae ea 
358 Joo ok ko ok i gi I i kode kok akakokek ak atk akc ake akc ac ak = CO00K0 x 00000c FADO EOU 13 READ WITH FUNCTI 3 ON svc 
359 N00001 $TUXX T5000, 02,0000,EQ, OT=(000072) , YES=N00011,CT=(C Ve aS 474 READQ EOU 43 READ ¥ETH FONCTION BIT 
360+N00001 DC A (aTUkx QOQQ0E 476 RSTAT FOU 15 READ STATUS oe etn a) eter eae 
002530 9500 14 DC —- AL2 (NOO 00000F TO EQU 16 WRITE WITH FUNCTI 3 OFF sv 
002232 2968 3008 De A (75000) 000010 478 WRIT? EOU 4 WRITE WITH FUNCTION BIT 
002534 62646 3634 DC AL2(E 000011 U79 GRRL FOU 48 CONTROL SVC sie eiiees ak 
002536 6600 De, once 03} 000012 1a0 e FOU «19 RELEASE INTERUPT CONTROL BLOCK SVC 
gsese 8888 3e5¢ DCX" 0400 000013 Not eeee cee. 28 CONNECT INTERUPT CONTROL 
ee ee 368% De APSO 800045 482 HIO EOU 21 REQUEST US@ OF DCP DISK SYC 
AeOeae. foqes 30a: C  CtAAY 000016 uaG REteD EOD 33 RELEASE USE OF DCP DISK SVC 
ee a 3933 BC oN RTD (PARMARA 00018 485 HALT EQU i EBCDIC TO HEX SVC STRING) 
002540 1965 Baa apObOS SQUES OT= §60075) -YES=N00006 ,cT= (C0074) 000019 189 TOR FOU 26 HEX FO EBCDIC oye {Sti NG 
002542 0100 tea MDD CHT ee $000 48 Nae neon Een os HEX TO ASCET SVC (STRING) 
rea waeon 374 "n00003  $OUES OT= (000079) ,YES=N00005 ,CT= (C00078) 00001C 490 HTOA EOD 59 EBCDIC T0 ASCII SVC (STRING 
375+N00003 De A (QUES) 00001D 194 begs eou 40 ASCIT TO EBCDIC SVC (STRING 
OOZaR6 9100 16+ DC___—AL2{N00005 00001E , agoR, Eau | 3g READ DATA SET y 
002548 2548 348 NO0004 $FIXKT FT= £00083) ,CT=(C00089) QO0001F 493 WRITT EQU =. 332 ue euA SEE RAST AREAS AOL E Lobe eENReNSERS 
Aaoene cece tl aaa Re TE 000020 tae ESE Set. ee Se ES Sree re eer aes 
Peete (aote 340°N00005 $070 RROUOE ce aes sina gy eeeuaedno 496 * ROUATES USED BY TU'S AS CONSTANTS * 
505880 Late 332 DC h ¢PO0094) faS EE ee rT nee tee een ee rr ean ren nT errs 
009852 FacsFOFO tte DE CEBtBY 400 PLUS. EQU. ct+* MENUS CHAR 
809336 C240 3844 De RES CENTRNE) Matt S01 MENUS EQU  Cr-s nah 
002558 6000 Soe Ranee SQUES OT= (900094, 500097) , YES=N00008,CT= (C00093) 900000 20 Gee; «Eee 
posecn bae8 3Bae DCAM BANOODOB 000002 eRe eens EGU. 4g 
Sn ea ees eras 389 NO0007 © SEIXT PIS FOO1CO} ,GTO= ( (1470,R)} 600003 206 THREE FOU) 3 
ee ae ct} PaO fc R (F001 0b) 7 ‘: 000005 ooo. cay Ren: ce 
eee Sane 392, NQQ008 — SQUES Q1= (000109) ,YES=N00010 ,CT= (C00 108) 090006 bug: Sevenccee: oS 
002562 0100 393+N00008 C ea ery penne 511 EIGHT FOU 8 
002564 395 N00009 $FIXT FT=(FO0111} ,CT=(C00112) 000009 513 7 EQU 10 11 
002566 0101 3964+N00009 C A (@PIXT) 00000A =e) eee 1 
260A 397+ eran eae eoaah oor eae 515 TWELV EOU 12 13 
002568 398 N00010  SETXT FI=(F00103) ,cT= (C00 104) 00000 ote ancee ene 45 13 
Mipttts 2618 400+ Cc A (F0010 QOQ00F 518 SIXTN EQOU 16 32 
ene 401 NOO0I14 © $STOP FI=(FO0106) 000010 319 THRY? EOU 33 32 
SE 0102 doar) De ROOD 00080 520 stxtd FOU 64 64 
903873 2635 aga Be ee ace goagat $31 OWE2s EQU 326 ae 
002572 0000 EQU. Jet RIG 000100 522 TWO 1024 1024 
002574 toe Wer aeeees SSS io olga ia iG IO a Gi a oi iG oii ak aiai a ik ak taka — Coenen 593 ONEK FOU 2048 
409 GNCRES AES UKE SHOES CAA CULOEEERERSWEGEGKAGOELEC ENE OLS +e ue8 140k se oe * a“ OekaoG 224 TWOK E9u Z078 aoae 
npoces ENTRY POINT TABLE 7 oe aioe 526 FOURK EQU 4096 a 
4410 FICCI ISG GIGIS ROI i i a i ak FFFFFF FOU -2 ~2 
nee PEASEESES SEELESS OOM ER ERE ATER OOS EO ROCKS OE aE ON ECOEe ES 974s beste ERCa ECS PEEEre 233 ae FOU -3 | 
443 eee EN TPT EPSA STEP=00001 FFFFFC 233 BORO O BEHOLD SOSH OSORIO Oa A IASI AI ICE 
CL2‘'A' % HE a 
002574 C140 4s DG a0 UATES FOR BIT DISPLACEMENTS FROM T 
eee ee 416” ENTPT EESB gSTEP=00006 336 x BEGINNING OF THE BYTE TO EACH BI? IN THE WORD OF SWITCHES. . 
e 
002874 2558 igs Dc x (0006 234 ha Gee REA A bao es ee 
AL2 (DU BOR Ek ake ak ak ak 0 EQU 0 
00257C 0000 nee KGRSUMER AS WaKSeEeeU te oewk ees aN naan saieeeeiee eke ns 6 000000 539 BS 
034 aha aac 990504 240 BS) ay 3 
423 : MESSAGE TABLE ee 000094 542 BS3 EOU 
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COPYRIGHT IBM CORP 1976 


BS4 4 
BS5 5 
BS6 6 
BS7 7 
BS8 g 
BS9 9 
BS 10 10 
BS11 11 
BS12 12 
BS 13 13 
BS14 14 
BS15 15 

T5000 
T5000 
PP SSeS S LS SSE ESSE SST TTS ST SE SS SST TS SST SS SEES ST ES SESS SSE SE SS 
He afe fe af ae aie ah ae af afc afc he ate 3c 2K ae af aie afc afc afc ak 2 akc kc fe ah af ke afc ahe ae ake a ake afc fe a ah ake ake kc ake 2 ae aie ae afc akc akc aie ake ake ac af ate 2c 
a ak 
ok TIMER DIAG sgtic sales 
1k (BASIC FUNCTION TEST) # 
a * 
% afe x xk 
ak S DIAGNOSTIC TESTS ALL THE FUNCTIONS OF THE ¥** 
ak ER ATTACHMENT EXCEPT THE EXTERNAL GATE AND ae He 
- E EXTERNAL CLOCK CIRCUITRY. ae 
ak DO NOT RUN WITH STOP ON ADDRESS ON, AS THIS ex 
*% CAUSES ALL MACHINE LANGUAGE INSTRUCTIONS TO # x 
x TAKE MORE TIME TO EXECUTE, AND ANY ROUTINES ok 
ae WHICH DEPEND UPON PRECISE SOFTWARE TIMING LOOPS ** 
a WILL DETECT FALSE ERRORS. of 
2 WHEN AN ERROR IS DETECTED, INSTRUCTIONS ARE #e ak 
** GIVEN TO REPLACE THE TIMER ATTACHMENT. A PRINTOUT#* 
ak GIVING THE FAILING INTERNAL ROUTINE/CHECKPOINT, ** 
ak THE ADDRESS IN THE PROGRAM WHERE THE el 
sae ERROR WAS DETECTED, AND THE STATUS WORD 15 ee 
a THE STATUS WORD BITS SIGNIFIGANCE ARE- x 
se BIT-CO TEST STARTED - TURNED ON AT ie 
si BEGINNING, AND OFF AT END OF TEST. ¥** 
ae BIT-14 AN UNEXPECTED TIMER INTERRUPT 
ied OCCURED. x 
- BIT-15 ANY ERROR OCCURED BIT + 


Be ae ah ae She fe afc ake ake af afc afc ae afc fe a ake ae ae ie ake af ae ake ae sit afc afc ake ae ie akc ok a ah ah afe aye ake of ate ae a ae aie oie ae ake aye a ae afc 3K ae oe afr ae 
Hee we ake He fe af afc ae af ae fe Be afc aye ae ae af ae ae a aie 2c a ak a 2h ae i ae ake he ie 2 ah af ae ac aie ale ae ahe 2k afe ofe ahe of ake ae fe ac eke ak ae oe 


* 
* 


HVWZ TURESUL, R1 
TO 


ZERO STATUS WORD 
BRANCH TO START TEST 


Me fe fe ake ak ie i akc ai afc ak ke ake ae i aa ke a akc a ke a ake a akc fe ae ke akc akc ake ai ae ic a fe ake abe a ac feo ake akc ak ake ake akc ae ak ake ake a akc fe 
DELAY SUBROUTINE 


PROVIDE ANY NUMBER OF 10 USEC DELAYS 
BEFORE RETURNING TO THE CALLER. 'DEL1' 
CAN BE CHECKED ANYTIME FROM A HIGHER 
LEVEL TO DETERMINE WHAT THE REMAINING 


* NAME- 


KHHHKHHKRHLHBREE 


DEL 


DELX 
DEL2 


COUNT IS. 
CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDR. 


R5 MUST CONTAIN THE HEX NUMBER OF 10 


HICROSEC. 


DELAYS (MINUS 1). 


TO ADDRESS CONTAINED IN R6. 
Sea Peee AST SAC ene See yee ee tren ee cee ee es 


RS, DEL1 
RG, DEL2+2 


Pa 
g 
HbELX 
A (*-* 
Med} 
X"002 
X'00258 


SET COUNT IN STORAGE 
SET UP RETURN 


RETURN * 10 USEC- 

* PER- 

* PASS. - ON 4955 
LOOP aa 


&953 
4955 


ate ake ic akc ake a akc akc 2k ak ake ak ake akc ke ak afc ak ak ke a keke ak ic ak a a fe a ae ae af 2k af aft af a ae ate fe fe aie aca oe akc ak akc a ok akc a ae ake ke ak ak ae 
MACHINE CHECK SUBROUTINE 


TO FIELD MACHINE CHECKS WHEN THEY OCCUR 


* NAHE- 


RHHHHH HME H 


"7 
K 


CALLING SEQUENCE- 


EVENTUALLY TO THE DCP. 
He ae oe ke he i kc oe ke i ae of 2 2 i ae fe 2c fe fe i 28 fe fe ae ae a a ake a a akc ak a fe ake ae ke af akc 2 ate 2k 2k ale ake ak ae ake ke akc 2k 


TERMINATE THE PROGRAN, 
RETURN TO THE DCP. 


VIA MACHINE CHECK XFER VECTOR. 


MowwunttPdi a # 


TOE 

BADDR, PSW 
PID+10, RO 
PID+ 10, PARM3 
HTO 

BADDR, RTN 


PID+12,R1 
PID+12, , PARM3 


HT 
BADDR,CKPT 


FA,R3 
EFA, TAR 


PRINT A MESSAGE, AND 


DISABLE INTERRIPTS 

PUT PSW IN STORAGE 

SET UP ER ADDR FOR INTER SUBR 
PRINT INTERNAL ea Geer MSSG 
SET UP TO CONVERT PSW 

PUT PSW IN R2 

PUT DATA ADDR IN CNTL BLK 

PUT CNTL BLK ADDR IN R7 

HEX TO EBCDIC 

PUT EBCDIC PSW IN MSSG 


PUT STEP NUMBER IN RO 

PUT DATA ADDR IN CNTL BLK 
HEX TO EBCDIC 

PUT EBCDIC RTN IN MSSG 


PUT ADDR. & TYPE CODE IN R1 
PUT DATA ADDR IN CNTL BLK 
HEX TO EBCDIC 

PUT EBCDIC RTN IN MSSG 


PUT SAVED IAR IN R3 
PUT EBCDIC IAR IN MSSG 


15002 --- 
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P/N=1635209 EC=375147 PASE O3A 


SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
* 
& 
NVA PARN1,R7 GET CNTL BLK ADDR 
MVW  ST,RG PUT ADDR OF LAST IDCB USED IN R4& 
svc. out PRINT MESSAGE 
B EEND 
SVPSH DC (k= 
She ee afk she ae ake afc afc she ae ae afc ake ae she ae she She ae ae ake she she aie aie ake ae afc ade she she afc wee ate she ae afc ake ake she ah ate age she ai she she afc hk ate she sic ae he ae ae ae ae oe 
* NANE- ENDING SUBROUTINES 
* PURPOSE- END PROGRAM EXECUTION WHEN GOOD RUNS AND 
. ERRORS OCCUR. 
* CALLING SEQUENCE- BRANCH TO THE CORRECT LABELS. 
* RETURN- TO THE DCP, 
HFSEESESSSEL SESE H ERNE SASS CER EREAL SR ERERE REE RRRE ETRY R EKER ES 
BBB EQU 
ree 1 DISABLE INTERRUPTS 
OWI 1,TURESUL SET ERROR CONDITION FOR MDI 
TO R50 RESET EVEN TIMER 
TO RS1 RESET ODD TIMER 
BAL OFF,R7 GET TO LVL 3 
BAL INTER, R7 PRINT INTERNAL RTN/CKPT NUMBER 
THE ADDRESS THAT ERROR OCCURED 
a AT, AND THE STATUS WORD- 
a BIT O= TEST STARTED BIT 
x BIT 14= UNEXPECTED TIMER INT 
sk BIT 15= ERROR OCCURED BIT 
: J EEND 
* GOOD END ROUTINE 
GEND EQU. * 
DIS 
BAL  OFF,R7 GET TO LVL 3 
HVHI 0, TORESUL SET STATUS WORD TO 0 
CEND EOU 
ava SAVA, RA GET XFER VECTOR ADDRESS 
HVD  SDCP, RY) RESTORE DCP XFER VECTORS 
nV SAVA Ns X OOAt RESTORE DCP HCK RTN ADDR 
MVA CEND1,LLSB GO TO LVL 0 AND THEN LEX VIA SVC - 
HVHI O,R7 EXIT SO THAT THE DCP DOESNT GET- 
: SELB R7,LLSB MESSED UP. 
GOBCK B ren 1k RETURN TO DCP ON LEVEL 3 
CEND1 SVC EXIT EXIT LEVEL 0, DROP TO LEVEL 3 
* ERROR END ROUTINE - TURN ON ERROR BITS IN STATUS WORD 
* BEFORE COMING HERE. 
EEND FOU * 
HVW  TURESUL,R1 GET STATUS WORD 
NWI -X"7FFFt. R1 TURN OFF TEST STARTED BIT 
MVH R1,TURESUL PUT STATUS WORD BACK 
: J CEND 
ERTN EQU * 
MVA ERTN,EA SET ADDR TO BE PRINTED 
J UNSET 
ORTN FEQU * 
MVA  ORTN,EA SET ADDR TO BE PRINTED 
UNSET OWT X10062", TURESUL SFT UNEX INT BIT IN STAT WD 
oe 
bd 
INTER FOU * 
MVW R7,RINTE+2 SET UP RETURN 
MVA  LIRTN, PARM3 PUT DATA ADDR IN CNTL BLK 
MVA  PARM2,R7 PUT ADDR OF CNTL BLK IN R7 
SVC HTOE HEX TO EBCDIC 
MVD BADDR,IRC PUT EBCDIC DATA IN 
MVA  EA,PARM3 PUT DATA ADDR IN Cnen: BLOCK 
Svc ATOR HEX TO EBCDIC 
HVD § BADDR,EEA PUT EBCDIC DATA IN MSSG 
MVA  TURESOL, PARM3 PUT DATA ADDR IN CNTL BLOCK 
SVC HTOE HEX TO EBCDIC 
MVD  BADDR,STAT PUT EBCDIC DATA IN MSSG 
MVA  RCHSG, R7 
HVA  OPWD1, 
TBT (R4,5) 
aN RINTE JUMP IF NO PRINT IS ON 
MVW TRTN,RG PUT INTERNAL RTN/CKPT IN RG 
MVW  EA,R3 * R3 HAS THE ADDRESS THAT THE- 
AWI -4~R3 * FAILURE WAS DETECTED AT. 
MVHI 0,k2 ZERO R2 
MV PLD+12,R1 PUT ADDR. & TYPE CODE IN R1 
MVH  PID+10,R0 PUT STEP NUMBER IN RO 
SVC OUT PRINT MESSAGE 
RINTE B xe = 
EA pc A(z -* 
IRTN DC Ae * 
ICKPT EQU IRTN4E1 
DC B (Fox) 
RCMS DC C'INT RNAL RIN/CKPT=! 
IRC DC 2A (*-# 
DC ct, ER ADDR=° 
EEA DC 2R(*-* 
DC Ci, STAT WD=" 
STAT DC AN te 
DC X' 0000 
SDCP DC 2A (k= DCP XFER VECTOR SAVE AREA 
DUMVE DC A (IDCB 
: DC A (IDCB#2) 
IDCB pc A (ERIN EVEN DDB 
DC A(ORTN ODD DDB 
SAVA1 DC A (k= * 
DC Xx'oocos 
PARM1 DC A (MKNSG) 
BADDR DC 2K (*=*) 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0027F2 0000 775 DADDR DC A a 0028D8 0000 893 SBCLO DC A (*-* 
0027FU 0002 776 PARM2 DC ) QOO28DA 0009 894 SBCL1 DC A (*¥-* 
0027F6 0000 777 PARM3 DC 3} Q028DC 0000 895 DELSO DC A (*-* 
0027F8 27EE 778 PARMY DC BAD R) QOO28DE 9000 896 DELS1 DC A (*-* 
OO27FA 3803 779 pc eae at QO028EO0 2882 897 ADIRN DC A (AIO DDB 
OO27FC D4C3D2406040D4C1D 780 MKMSG DC C'MCK - MAP= Q028E2 28E8 898 DC A(AL1 DDB 

002806 00000000 781 RTN pc 2A (*-* 0OO028E4 28E0 899 ADIR DC A (ADIRN) 
OO0O280A 40E2ZE3CSD77E 7182 DC C* STEP= 0028E6 2882 900 DC A (ADIRN+2) 
002810 00000000 783 CKPT DC 2A (*-* 901 * 
002814 M4O4ODTE2ZE67E 784 DC c* psw=t 0028E8 902 AT FQU) * 
00281A 00000000 785 PSW Dc 2A (*—* 0OO28E8 6B04 28F0 903 BCC 3,A111 
00281E 4O40C9C1D9I7TE 786 pc C* TaAR='t QOO28EC 6F03 2BOE 904 BAL E,R7 BAD C.C. 
002824 00000000 787 IAR DC 2k (4-*) QOO028FO 8828 2666 905 AI11 MVW DEL1, DELS1 SAVE REMAINING DEL VALUE 
002828 0000 788 DC X*0000 Q0028F6 6E03 29BA 906 BAL STOP 4 R6 STOP ODD TIMER 
00282A 27A8 789 RCMSG DC A (RCMS) OO28FA CF24 2BC8 907 CW ID1,R/ 

790 * QOO28FE 1002 908 JE AI12 JUMP IF INT ID IS OK 

792 ooo ok io gi a I Ii I IOI II I GIGI ak ak ak ake ake ak sk ake ake ok ak ake ake aie ak 002900 6F03 2BOE 909 BAL E,R7 BAD INT. ID 

7193 * NAME- GO TO LEVEL 3 SUBROUTINE 002904 6D08 28DA 910 AI12 MVW SBCL1,R 

794 * 002908 6E£03 2B1C 911 BAL COPY, E> VERIFY CURRENT LEVEL 

795 * PURPOSE- GET CPU ON LEVEL 3. 00290C 6100 912 LEX RETORN VIA A LEVEL EXIT 

796 * 914 SIG IIOK Sok a IG IG a GI GGIGIGIOI GIGI OI I I aK ak ak ak ake ak ak aI ake ake akc ak ake ak akc ae ake ae ake aie ae ae ae ate 

797 * CALLING SEQUENCE-R7 MUST CONTAIN RETURN ADDRESS. 915 * : 

198 * 916 * NAME- SET DEVICE ADDRESS SUBROUTINE 

799 * RETURN- TO ADDRESS CONTAINED IN R7. 917 * 

800 sok E Oo Oa OG OGG IGOR Ia OI ik aii ai gaia ski kak ak skate ke atte 918 * PURPOSE- SET UP ALL TIMER DDBS USED IN PROGRAM 
00282C 801 OFF EOU xk 919 * WITH THE TIMER DEVICE ADDRESSES. 
00282C 6F0OD 2852 802 MVW R7, OFFR#2 SET UP RETURN 920 * 

002830 4020 2CAA 2850 803 MVA OFFR, LLSB SET IARB 921 * CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 

002836 4724 0003 804 MVWI R 922 * RS MUST CONTAIN THE RIGHT JUSTIFIED 

00283A 5F26 2CAA 805 SELB R7 LLSB SET LVL 3 PENDING 923 * EVEN TIMER DEVICE ADDRESS. 

00283E 4724 0002 806 MVWI 2 924 * 

002842 5F26 2CBO 807 SELB R7 DLLSB TURN OFF LVL 2 925 * RETURN- TO ADDRESS CONTAINED IN R6. 

002846 &724 0001 808 MVWI G26 RM ea ee ae ai ake ah ake ae ae aie ic ah ake fe a ic ae ae 2 fc fe af ak a ah ake oe ae ake ae ake ae ae ate af ae af ake afc ate akc ake akc ake ke ke ake ake ake af aie a ae ake ake ake akc 
00284A 5F26 2CB0 809 SELB R4,DLLSB TURN OFF LVL 1 00290E 927 SETT EQU * 

00284F 6100 810 LEX EXIT LVL 0 O0O290E C528 29A5 928 MVB = R5,C10#1 

002850 6802 0000 811 OFFR B kw RETURN 002912 C528 29D1 929 MVB R5,STO+1 

813 FO ok io i ok i Oi i loki kok koko ak kai ake ak ick ak ake akc ak ake ake ake ake ak ake ak ake ak ake ake ake ak akc a ak 002916 C528 2A01 930 MVB R5, RSO+1 

814 * NAME- GO TO LVL O SUBROUTINE 00291A C528 2A3D 931 MVB R5, RVO++1 

815 * 00291E C528 2A79 932 MVB R5,RM0+1 

816 * PURPOSE-= GET CPU ON LEVEL 0. 002922 C528 2AB1 933 MVB R5, RDO+1 

B17 * 002926 C528 2AE9 934 MVB R5,SETVO+1 

818 * CALLING SEQUENCE-R7 MUST CONTAIN RETURN ADDRESS. 00292A C528 2B0B 935 MVB R5,IPREP+1 

819 * 00292E C528 2853 936 MVB R5,STAP+1 

820 * RETURN- TO ADDRESS CONTAINED IN R7. 002932 C528 2BC7 937 MVB 8 R5,1D0+1 

82.7 OOOO OR ior OI II GIGI Rag IG ak oi GIGI OK ir RK kak kak 002936 C528 28AB 938 MVB R5,1DCBO+1 
Oeseen Bahn. Baap 822 LVO EQU 5 nae 00293A C528 2975 Sic % MVB R5,F13+41 

MvVW LVOR¢ SET ue seo 

002858 4020 2CAA 2866 824 A Rox. LLSB SET 00293E 7DA1 0001 941 AWI 1,R5 SET RS TO THE ODD ADDR 
00285E 4724 0000 825 MVWI O,R7- 002942 C528 29D5 942 MVB R5,ST141 
002862 5SF26 2CAA 826 SELB RT. LLSB GO TO LVL 0 002946 C528 2a05 943 MVB R5,RS1+1 
002866 4724 9001 827 LVOA MV®WI OO294A C528 2A41 944 MVB RS,RV1+1 
00286A 5F26 2CBO 828 SELB R4,DLLSB TURN OFF LVL 1 00294E C528 2A7D 945 MVB  R5,RM1+1 
O00286E 4724 0002 829 MVWI 002952 C528 2ABS5S 946 MVB R5,RD1+#1 
002872 5F26 2CBO 830 SELB RY,DLLSB TURN OFF LVL 2 002956 C528 2AED 947 MVB = R5S,SETV1+1 
002876 4724 0003 831 MVWI 00295A C528 2B7F 948 MVB R5,STP+#1 
00287A 5F26 2CBO 832 SELB R4,DLLSB TURN OFF LVL 3 00295E C528 2BC9 949 MVB R5,ID1+1 
00287 6802 0000 833 LVOR B *~ RETORN 002962 C528 28AF 950 MVB R5,IDCB1+1 

3S ee ee oe he ae fe ke ae ak ae ke abe fe fe ae ake ake fe ake ae a ae 2 ae oe fe fe fe fe fe ae ae ae ae ake a ake ke ae a a ake a a ake ake ae a ake a ake ke ake eae ake 002966 C528 296F 951 MVB R5,F10+1 

836 * NAME- START TIMER PERIODIC SUBROUTINE 952 * ADD MVB Ifsts. AS REQUIRED 

83g PURPOSE ISSUE START TIMER PE O See eee nave gee * : EO} aaa 

= S PERIODIC OIOS. 

839 * Q00296E 2000 956 F10 Dc X*20008 READ ID IDCB - ODD 

840 * CALLING SEQUENCE~R6 MUST CONTAIN THE RETURN ADDR. 002970 Q000 957 F11 DC A pee | ID ENDS UP HERE 

B8u1 * ENTRY POIN STPEO’' FOR EVEN TIMER 002972 0028 958 F12 DC X*00238! S/B TIMER ID 

B84U2 * BRD "STPF1" FOR ODD TIMER. 002974 2000 959 F13 DC X*20008 READ ID IDCB - EVEN 

843 * 002976 0000 960 F14 DC Mes ID ENDS UP HERE 

844 * RETURN- OCCURS ONLY IF CC7 RESULTS FROM IO CMMD. 002978 FFOO 961 XFFOO DC X*FFOO'! 

B45 sok oo gO Ooi lok tok igi I I I IOI IO I IG ICICI IOI 1212 2 25 2 aK ae 2 OO297A FFFF 962 ZFFFF DC X*'FFFF® 
002882 846 STPEO EQU * 96 Ue 2a ke ak ak ak 2k ak ake aki ak ake aie akc ake ake ke ate aie akc akc cae akc ake ak ae akc ake a ake ake ai ake ic ake ake ake ae a ake ak ake ak ae ake ake ake ke a ake ak ake ak 
002882 4020 2668 28AA 847 MVA IDCBO, SI 965 * NAME=- COMMAND REJECT SUBROUTINE 
002888 680C 28AA 848 10 IDCBO START IO 966 * 

Q00288C 6F04 28A6 849 BCC 7, PERTN 967 * PURPOSE VERIFY THAT ALL MODIFIERS WITHIN THE 
Hey 6F03 2BOE 829 ae ean E,R7 BAD C.C. ace : LINITS WILL CMD REJECT FROM BOTH TIMERS. 
002894 4020 2668 28AE 852 Re IDCB1,SI 970 * CALLING SEQUENCE- LF MUST CONTAIN THE RIGHT JUSTIFIED 
00289A 680C 28AE 853 ide) IDCB1° START IO 971 * ST MODIFIER. 

QO289E 6F04 28A6 854 BCC ie aoe 972 * Re MUST CONTAIN THE RETURN ADDRESS. 

Q0O28A2 6F03 2BOE 855 BAL R7 BAD C.C. 973 * R7 MUST CONTAIN THE RIGHT JUSTIFIED FIRST 
0028A6 68C2 0000 B28 PERTN B (Re) RETURN aoe . MODIFIER TO CHECK. 

QO28AA 6600 858 IDCBO DC X*66008 START PERIODIC IDCB 976 * RETURN- IF ALL SPECIFIED VALUES CMD. REJECT 
QO28AC 0000 859 Dc A (*¥-* 977 * CORRECTLY RETURN TO ADDRESS IN R6 

OO28AE 6600 860 IDCB1 DC X*660 START PERIODIC IDCB 978 * CCURS. 

0028B0 90000 861 c A (*=* 079 eo oo io ig SOR OIG iG a IO GIGI GI IR ak ak takai ik ak aka a sek ate 

86 3 Soo OO gio OR oI oI ok toi tok oii aka aki ke ak kok ak ake aici a 00297C 980 CMDR EQU *x 

864 * NAME- INTERRUPT RTNS FOR TIMER ACCURACY TESTS 00297C C728 29A4 981 MVB R7,C10 SET MODIFIER IN IDCB 

865 * 002980 4020 2668 29A4 982 MVA C16,/SI 

866 * PURPOSE SERVICE INTERRUPTS AND CHECK FOR CC3 002986 680C 29A4 983 Io C10 

867 * SAVE "DEL1' IN "DELSOt OR 'DELS1! stop Q00298A 6B04 2992 984 BCC a ee) BR IF CMD REJECT 

868 * STOP THE TIMER, VERIFY THAT INTERRUPT ID Q0298E 6F03 2B0E 985 BAL E,R7 NO CMD REJECT 

869 * AND INTERRUPTED TO LEVEL ARE OK, - LEX. 002992 986 C5 EQU * 

870 * BODeae C524 29A4 987 C C10,85 LAST MOD. JUST CHECKED? 

871 * CALLING SEQUENCE-SET UP DDBS BEFORE USING RTN. PUT THE 02996 68C0 0000 988 es) BR IF YES - RETURN - OK 

872 * ADDRESS (AIO FOR EVEN AND AI1 FOR ODD) IN 00299A C720 29A4 989 MVB 10,7 GET LAST MODIFIER 

873 * THE APPROPRIATE DDBS. "DELSO* - FVEN AND Q0299E T7FE1 0001 990 AWI X'0601¢,R7 INCREMENT MODIFIER 

874 * ‘DELS1* ODD MUST BE INITIALIZED TO.=1_° 0029A2 5O0EC 991 J CMDR DO IT AGAIN 

875 * BEFORE USING. *SBCLO' AND 'SBCL1! MUST BE 992 * 

876 * SET TO THE S/B CURRENT LEVEL VALUE FOR 0029A4 0000 993 C10 DC X*O00008 IDCB - DA GOES IN 2D BYTE 

877 * INTERRUPTS. 0029A6 0000 994 c. La bre | 

878 * QQ 6G Ke aie ae aie ake ae ake a af afte ie ake ak ae Fc ake ah ac a a a ake ate a ac ic ac af ac ake af akc ac acai ae ake ae akc ai af ade ae ate ae ae ake ak ae af af ate ake abe ate fe 

879 * RETURN- TO A LOWER PENDING LEVEL. 997 * NAME= STOP SUBROUTINE 

880 aa cal aca a 998 * 
0028B2 881 AIO EQU 999 * PURPOSE- ISSUE STOP COMMANDS TO TIMERS. 
0028B2 6B04 28BA 882 BCC 3, AIQ1 1000 * 
0028B6 6F03 2BOE 883 BAL R7 BAD C.C. 1001 * CALLING Sener Eee MUST CONTAIN RETURN ADDRESS. 

OO28BA 8828 2666 28DC 884 AI01 MVW DEL DESO SAVE REMAINING DELAY VALUE 1002 * ENTRY POINT "'STOPO" FOR EVEN, 
0028C0 6E03 29A8 885 BAL STOPO,R STOP EVEN TMR 1003 * AND *STOP1" FOR ODD. 
0028C4 cR2i 2BC6 886 CW TDOLRIS 1004 * 
0028C8 1002 887 E AIO 05° 1005 * RETURN- TO ADDRESS CONTAINED IN R6. 
0028CA 6F03 2BOE 888 BAL E.R? BAD INT ID 1006 [ko oO oko ok ai ioigioi gigi oi igi IOI lok ii iar kg i Oi i kokokoi gi ak kak ate 
QO28CE 6D08 28D8 889 AIO2 MVW SBCLO R5 0O029A8 1007 STOPO Ee * 
0028D2 6803 2B1C 890 BAL COPY, k6 VERIFY CORRECT LEVEL QO29A8 4020 2668 29D0 1008 M STO, SI 
0028D6 6100 891 LEX : RETURN VIA LEVEL EXIT QO2Z9AE 680C 29D0 1009 STO STOP TIMER 
892 * 0029B2 6F04 29CC 1010 BCC 7,STOPR 
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P/N=1635209 EC=375147 PAGE 05 
SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
BAL  &,R7 BAD C.C. 
STOP1 FOU * 
NVA  ST1,SI 
TO ST 4 STOP TIMER 
BCC 7, STOPR 
BAL BAD CC 
STOPR B Trey RETURN 
sTO DC X*6E00! EVEN ADDR STOP IDCB 
DC Ah (*-* 
sT1 DC X"6E0 


DC A (¥-* 
vanenedSannehfectha 22 3 fe aR caf af 2 a ai a fe ak ake a ake af ae ke ae akc ak ak fe ae ae ae ake ake akc ak ake ake ake a akc a 


* NANE- DEVICE RESET ROUTINE 
* PURPOSE- ISSUE RESET COMMANDS TO TIMERS. 
* CALLING SEQUENCE-R6 HUST CONTAIN RETURN ADDRESS. 
* USE ENTRY POINT ‘RSETO' FOR EVEN, 
* AND 'RSET1® FOR ODD. 
* RETURN- TO ADDRESS CONTAINED IN R6. 
He Me We aye afe aie ae ae aye fe aye afc he ake af ah afc of ae sje se she ah ake sh ae fe ake she fe ate she ake ah ahe afc she se aft afe she sie ae ade afe fe she afe he ate afc ae afc afc ake ake afe afe ate abe afe 
RSETO Bou + : 
MVA  RSO,SI 
TO RSO RESET TIMER 
BCC 7,RSETR 
BAL £E,RT7 BAD CC 
RSET1 EFQU*® 
HVA  RS1,STI 
TO RS1 RESET TIMER 
BCC 7,RSETR 
BAL EsR7 BAD CC 
RSETR B (£6) RETURN 
RSO DC X'6FO0! RESET EVEN TMR IDCB 
DC A (= *) 
RS1 fe Xt GFO ' RESET ODD TMR IDCB 
Sei ao KEE A ee oe RRA Rae ae 


* NAHE- READ TIMER VAUE SUBROUTINE 


& 
* PURPOSE- READ TIMER VALUE REGISTERS 
* CALLING SEQUENCE-R6 | MUST CONTAIN THE RETURN ADDRESS. 
* ENTRY POINT "RDMO' FOR EVEN, AND, 
: Vepate FOR ODD. 
* RETURN- TO ADDRESS CONTAINED IN R6 - RS WILL 
* CONTAIN THE DATA THAT WAS READ. 
ne een eR Ore ge eine Rese Cg oer te eee Cee 
RDVO EOU 
MVA RVO, St 
TO RVO’ READ TIMER VALUE 
BCC 7,RDVOO 
BAL £E.-R7 BAD CC 
RDVOO HVW R42,R5 GET READ DATA 
B (R6J RETURN 
RDV1 EQU. * 
MYA  RV1,SI 
Io RV1 READ TIMER VALUE 
BCC 7,RDV11 
AL ER? BAD CC 
RDV11 SVW RV3,R5 GET TIMER DATA 
: (R6J RETURN 
RVO DC X'24008 READ TMR VAL IDCB 
RV2. ~=—C A (eo 
RV1 DC X'2400! READ TMR VAL IDCB 
RV3. DC A (#24) 
Wee He rie ah he age af she ale she af he whe af afc ake ae Se afc afc ak ake ae afe afc aie ae ake afe ake aie ake sfc fe ake ake ake ake afc ade he afc ake ake fe ake ak fe ake ake ake ke aie ake af aC ake aie aie ake akc 
* NAME- READ TIMER MODE SUBROUTINE 
* PURPOSE- READ TIMER MODE REGISTERS. 
* CALLING SEQUENCE-R6 MUST CONTAIN THE RETORN ADDRESS. 
* USE ENTRY POINT "RDNO' FOR EVEN, AND 
* ‘RDM1" FOR ODD. 
* RETURN- TO ADDRESS CONTAINED IN R6 - R5 WILL 
* NTAIN THE DATA THAT WAS READ. 
So 2 SSS FSF PSPS SES ESE SS SLES SSS ELS SESS SES SSS PSS SSL PS SSeS SS 2 Ss 2 Oe st es 
RD MO Bou * 
i RMO,SI 
TO RMO READ TIMER MODE 
BCC 7,RDHOO 
BAL E.R? BAD CC 
RDMOO MVW  RA2,R5 GET MODE DATA 
B (R6) RETURN 
RDM1 EOU * 
M RM1,SI 
RM1 READ TMR MODE 
BCC 7,RDM11 
AL £E.RT BAD CC 
RDM11 MVW RA3,RS5 GET MODE DATA 
(R6f RETURN 
MO vc X*25008 READ TIMER MODE IDCB 
M2 DC a (x=) 
KY DC X¥250 ' READ TIMER MODE IDCB 
EL GMs o6 CUE oo aos REAR AKERS AO Rd nei acs 
NAHE- SET MODE SUBROUTINE 


WRITE TO THE TIMER MODE REGISTERS. 
CALLING SEQUENCER MUST CONTAIN THE RETURN ADDRESS. 


MUST CONTAIN THE DATA TO BE WRITTEN. 
USE ENTRY POINT *SETMNO* FOR EVEN, AND 
ETM1* FOR OD 
D 
* 


F 
ADDRESS 
Mee ie ae ee ak 


Ss 
URN- TO 
BR i fie tec eae a aie te a ae a a 
EQU * 


ee 


* 


D. 
CONTAINED 
Wei kk tok sok ik 


he ae ate ae ate a ae af ae aie ae ak afc 3 
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Ett 
O #13 


ty & 


I5002 --- 
OBJECT TEXT 


t 
io) 
QD 
3 
= 0 ] 


COOSD DODDCDO0DSC0D9000 
COSD DODDOCODDDCOS0 
NMPN PorpPonrohrorwhWnnnn 
poe a Be 8 ee Dw we Bs ew Sw ws 
DOWD PP yerProOoOKD0MMMOD 


DNENO QAWDLOYPAAV HE» £O 


DOOD COSCOCODDCOCO0OS0O 
CO90O DOSCOOSOCOOCOO 
NNN NNNNNNNNNNN1bD 
se De te ee Dt ot Da ow ba oe Bo Bo oe ws 
HA HAPOUKDNNNNNdww 
HOO LON OhEitts Onl Coo 


oO 80000900 
oOo COCO000oO 
NN NNMNNMDNNp 
COS 0 et 
OO OOM ny hy Hy 
QF ANbdtie SOO 


OoooooO 
OO0000O 
NNMNNND 
WOmdwww 
NDNA) 
ANOBAN 








tie 
¢ 
« 


ONNNND NNDDA 
COP SOND wir OV 
OCOFrOAwW OFTrdanw 
OWINLSON wWOACGAON 


ADNON AAKAKHLA HAAN 
Ou1ISW) OmWyoOoU WHoOOU 
OS090 NASOONO COOCNO 
COOSO NWENOCD WLNOY 


ONNNND NNNMNN 
OO mmr th PAD 
SCOCWktnAtmW ODN, 
SOsFfNOd we MOOr 


OGNODN ANNANALEH AKAAKHLOr 
OfFOfS OFNOOUW wWHOOUW 
F900 NGOONDSD COONS 
CO0090 NWENOCYD WENSCY 


ODN ADAQAHALO 
O09 Onmiwoou 
OD NANGCOONO 
OOo NWEQAOYW 


NNN 
A~I~] 
OD a 
CONN 


AON 3 ~ J) =~] 
Ory Ould 
A°COnyW 
NWNUTWO 


TIMER DIAGNOSTIC 


STMT 


MESSE SS SL SWWWWwWWWWWUWdhd 


ee ee oe ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
SAVE WN 2AOUW DANUIWN @ OW ONAN LWA OW DYNAN EN BOW DO SIONUE Wt OU SIADU EWN OVW DONO WN BOV ONUIEWN BOW OSIRUIEWN 2 OU OD INOW EWN32OWO JUEWN)2AOWOSIHUIE WNW 


Te eee ee ee ee ee ee ee ee eee ee ee | 


WODDWOODO ODO OD OOO 0D OO ~J ~J JJ IJ ISI A AAANAARADAA ON UNNUIUIUIN 


Sc ne el a ce ce eh ceed ee cle el cea ee eek dl ch coh eh ced ca ae lh a el lh ne cael we ee eB eed a ea cee eh ce ae ceed ce eth igh cal ee aed ceeds ea wee ccd mn cae cals Dh cD cee an ads ew Ds cee ch cd ened ceed cm ends aaah cred cand mend ccd ceed eaedd add ccd sana eons 


NNNNNNNANNNDNNNNNNNDNNNNNNAUNNDNNPNNNNNDNNNDNDDIDNDOD ID od el ad ak ak el ek ak ed ak ad ed ad ed ed a ed 


FREES SSLSSSWWWWWWWWWHNNNNPNDDNDN 28 32d 2d tt IOOOOOO0O000 


P/N=1635209 EC=375147 PAGE OSA 
SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
uv W £56" 2 PUT MODE DATA IN IDCB 
TO SET MODE 
BCC BO ETMR 
BAL &§,R7 BAD CC 
SETM1 EQU * 
MVW RS_RD3 PUT MODE DATA IN IDCB 
MVA RD4,ST 
TO RD1 SET MODE 
BCC 7,SETMR 
AL ERT BAD CC 
SETMR B (£6) RETURN 
RDO DC X*6S5008 EVEN ADDR SET MODE IDCB 
RD2 DC A (k= * b 
RD1 DC X"650 ODD ADDR SET MODE IDCB 
RD3 vc A(t) 
We He He ahe ee Be af he afc ake Be she 24C afc she she He ake afc ake ae ake aie ake she she af af ale ac ake afc fe ake ake she ake he we ape ate fe she afe ae ate ale ale ae ake ake ae ake abe ake ake akc afc ak 
« NAME- SET TIMER VALUE SUBROUTINE 
* PURPOSE- WRITE TO TIMER VALUE REGISTERS. 
* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 
ae R5 HUST CONTAIN THE DATA TO BE WRITTEN. 
a USE ENTRY POINT 'SETO" FOR EVEN, AND 
: ‘SET1¢ FOR ODD. 
* RETURN- TO ADDRESS CONTAINED IN R6. 
He whe dhe ake fe af ae Me shee afe He ae ae ake he ak afe ae ak ake afc ae ale she afr ade ake ate ae ake af she af ate ae ake she ac ake sfc ale afe fe ate ae ah ae ake ate ate ate ate abe ate ale ake adr ade ate 
SETO FOU 
avW R5,SETV2 PUT TNR VAL DATA IN IDCB 
MVA SEfVO, ST 
To SETVO SET VALUE 
BCC 7,SETR 
BAL &E,R7 BAD cc 
SET1 EOU - 
av w SETV3 PUT THR VAL DATA IN IDCB 
NVA senvi, ST 
TO SE SET VALUE 
BCC 7, ae 
BAL E.R? BAD CC 
SETR B (Re) RETURN 
SETVO DC X*64008 EVEN ADDR SET VAL IDCB 
SETV2 DC A (*-* 
SETV1 DC X*640 ODD ADDR SET VAL IDCB 
SETV3 DC A (#-* 


Me Me eae Me se He ae a a a a a 2 he i a ae ale ae ae ae ae he a ae he ae af a 2c ae ae ae a of ae a ae ic ae ae ae ae a fe ae a a ae ae a az ae ae a ae ak 
sé NAHE- PREPARE TIMERS SUBROUTINE 


: PURPOS E- ISSUE PREPARE COMMAND TO TIMERS. 


* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 
* R5 MUST CONTAIN THE PREPARE DATA WORD. 


ie 
* RETURN- TO ADDRESS CONTAINED IN R6. 
2ie aie fe ae fe ake ake ca af ake a ke aft af ae a ae a ae ake ak af ae ak ake ae ake fe ae abe fe 2c fe akc a ae ae ak ae ake ak ade ae ake ake ake afe ake ake af ae abe ade ake ae ake ae ake fe ae 
PRE  &QU : 
HVA PREPD PUT PREP DATA IN IDCB 
MV A RB RES St 
TPREP’ PREPARE 
BCC 7, PRE 
BAL £E-RT BAD CC 
PRE1 B (R6) 
IPREP DC X*'60008 PREP IDCB 
PREPD DC h (*=* 


AIO RR ORIG IG Rk fio ick iio ggiaiok i teak akake ake atc aaa ake ake ake ake ake ak ke ake afe age a ae aft 
> NAME- ERROR DETECTED SUBROUTINE 


: PURPOSE- HANDLE PROGRAM DETECTED ERRORS 


* CALLING SEQURICE Ee MUST CONTAIN THE ADDRESS THAT THE 
* ROR WAS DETECTED AT. 


5 
* RETURN- EVENTUALLY TO THE DCP 
te ee a af eae ae ae ae ae a ae ae ae a ake ae a a ae a ae ai ak a a ae ake ake a ak ake aa ake a ke ak ae ake a a a ake ake ae ake ae ake afc 
E EQU * 
MVW R7,EA SAVE ADDR IN R7 
AWT me Ba SUBTRACT 4 BYTES FROM SAVED ADDR 


B 
Me ee hee he Re a ie fe ea ah af ae a ae fea aa ae ic ae af fe ae ae aie oe ake af ke age ae a ae a ae ae ik ade ate ake age ake ak ae ate ae a ae ate af ake ake akc ae ake 


: NAME- COPY CURRENT LEVEL SUBROUTINE 

* PURPOSE- TO VERIFY THAT CPU IS ON THE SPECIFIED 

. LEVEL. 

* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 

* RS MUST CONTAIN THE RIGHT JUSTIFIED S/B 

: CORRENT LEVEL DATA. 

* RETURN- OCCURS TO ADDRESS CONTAINED IN R6 ONLY IF 
a4 CURRENT LEVEL IS THE SAME AS IS SPECIFIED 


BIOSIS OIGI CI GIGIOI IOI IOI GIGI IS IOI IG IOI SIO IOI OI I OI OI IIE Re iii 
COPY Ege * 


CL R7 

W R5,R7 IS CPU ON THE RIGHT LEVEL? 

JE coby1 JUMP IF Y 

BAL E.R? ON WRONG LEVEL 
COPY1 B ghey 
We x whe she ah rhe ae afc afc ah ae af a ae ade a Bee ae ae afc ae ae ah Me ake ake ake ake she ah af abe ae ae ade ade afe afc age ae a ake abe ake nhc ae ak she fe abe abe ake age abe ake ake ake 
* NAME- TIMER INTERRUPT TEST SUBROUTINE 
* PURPOSE- THE ADDRESSED TIMER IS STARTED APERIODIC 
WITH THE VALUE SET T0 0. CONDITION CODES 
* ARE CHECKED AT OIO AND INTERRUPT TINES. 
. STOPS OCCUR IF CC IS INCORRECT. 
* CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDRESS. 
te TIMERS MUST BE PREPARFD, AND MODE MUST BE 
* SET. THE TRANSFER VECTORS MUST BE ALREADY 
* SET UP. THESE ROUTINES CAN BE USED ON 
* ANY LEVEL. 
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REFERENCES 

LOCATION (00003CC8) 
LOCATION (00003D3c) 
LOCATION (00003CE2) 
LOCATION (00003D46) 
LOCATION (00003CEC) 
LOCATION (00003D56) 
LOCATION (00003 D62) 
LOCATION (00003D6E) 
LOCATION (00003D7C) 
LOCATION (00003E52) 
LOCATION (00003DF8) 
LOCATION (00003E76) 
LOCATION (00003590) 
LOCATION (00003E36) 
LOCATION (00003E9A) 
LOCATION (00003E40) 
LOCATION (00003FAA) 
LOCATION (00003EB6) 
LOCATION (00003 EC2) 
LOCATION (00003ED8) 
LOCATION (00003E1C) 
LOCATION (00003258) 
LOCATION (00003644) 
LOCATION (00003690) 
LOCATION (00003696) 
LOCATION (0000369A) 
LOCATION (000036AC) 
LOCATION (000036C0) 
LOCATION (000036CA) 
LOCATION (000036CE) 
LOCATION (000036F0) 
LOCATION (000036F4) 
LOCATION (000036EA) 
LOCATION (0000370C) 
LOCATION (00003720) 
LOCATION (0000372A) 
LOCATION (0000372E) 
LOCATION (00003774) 
LOCATION (00003768) 
LOCATION (00003778) 
LOCATION (0000378A) 
LOCATION (00003795) 
LOCATION (000037A8) 
LOCATION (000037AC) 
LOCATION (00003704) 
LOCATION (000037CE) 
LOCATION (000037D8) 
LOCATION (000037EA) 
LOCATION (000037FE) 
LOCATION (00003808) 
LOCATION (0000380C) 
LOCATION (00003852) 
LOCATION (0000384Cc) 
LOCATION (00003856) 
LOCATION (00003868) 
LOCATION (0000387C) 
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CSECT (15002 
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LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (1) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
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DECLARED 


2555 
2556 
2570 
2567 
2571 
2576 
2581 
2585 
25 86 
2611 
2612 
2608 
2617 
2622 
26 26 
2627 
264 1 
2642 
2638 
2647 
2652 
2656 
2657 
2664 
1984 
1992 
1997 
1999 
2012 
2017 
2025 
2030 
2032 
2040 
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NAME 


TIOB 
T9OC 
TO1A 
TO TAX 
T9 1B 
T9 2 
T92A 
T92B 
T92C 
T93A 
T93B 
T93BX 
T94 
TO4A 
T94B 
T94C 
T95A 
T95B 
T95BX 
T96 
TI6A 
T96B 
T96C 
T98 
T99B 
T9I9C 
T99D 
TIOE 
TI9SF 
T99G 
T9I9H 
T99T 
T99T 
T99K 
UNSET 
ZFFFF 
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ATTRIBUTES 
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ADDRESS. 
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ADDRESS. 


ADDRESS. 
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ADDRESS. 
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58 
oe leat 


N 


RESS. 


NO NO NM NH DN ND PW 


2655 
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HEX 
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HEX 
HEX 
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HEX 
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HEX 
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CROSS-REFERENCE LISTING 


REFERENCES 


LOCATION (00003886) 
LOCATION (0000388A) 
LOCATION (000038B2) 
LOCATION (000038AC) 
LOCATION (000038B6) 
LOCATION (000038C8) 
LOCATION (000038DC) 
LOCATION (00003856) 
LOCATION (000038EA) 
LOCATION (00003930) 
LOCATION (00003934) 
LOCATION (0000392A) 
LOCATION (00003946) 
LOCATION (0000395A) 
LOCATION (00003964) 
LOCATION (00003968) 
LOCATION (00003990) 
LOCATION (00003994) 
LOCATION (0000398 A) 
LOCATION (090039A6) 
LOCATION (000039BA) 
LOCATION (000039C4) 
LOCATION (000039C8) 
LOCATION (000039DE) 
LOCATION (00003222) 
LOCATION (0000323C) 
LOCATION (00003254) 
LOCATION (00003256) 
LOCATION (00003270) 
LOCATION (00003282) 
LOCATION (0000329C) 
LOCATION (000032B4) 
LOCATION (000032B6) 
LOCATION (000032D0) 
LOCATION (0000273) 
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CSECT (15002 
CSECT (15002 
CSECT (15002 
CSECT (15002 
CSECT (15902 
CSECT(I5002 
CSECT (15002 
CSECT (15002 
CSECT (15002 
CSECT (15002 
CSECT (15002 
CS ECT (15002 
CSECT(I5002 
CSECT (15002 
CSECT (15002 
CSECT (15002 
CSECT (15002 
CSECT(I5002 
CSECT (15002 
CSECT(I5002 
CSECT(I5002 
CSECT (15002 
CSECT (15002 
CSECT(1I5002 
CSECT (15002 
CSECT(I5002 
CSECT (15002 
CSECT(I5002 
CSECT (15002 
CSECT(I5002 
CSECT (15002 
CSECT(I5002 
CSECT (15002 
CSECT (15002 
CSECT (15002 


CSECT(I5002 
2619 °2649 
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LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 


